2 PRINT"[147]"
3 PRINT"     HEY!    [157]";:POKE53281,.:
4 FORA=1TO500:NEXT:PRINT"[154]ES  [157]";
5 FORB=1TO500:NEXT:PRINT"IST   [157]";
6 FORC=1TO500:NEXT:PRINT"[129]SOWEIT...  [157]";:TI$="000003":WAIT161,1
9 POKE53280,.:POKE53281,.:PRINTCHR$(147)
10 POKE646,INT(RND(0)*15)+1:FORC=0TO5
11 T$="*   HIER HAT DIE DISK IHR ENDE   *****     ":NEXTC
12 FORI=1TO LEN(T$):PRINT"  "CHR$(20)TAB(6)MID$(T$,I,1):TI$="000004":WAIT161,1
13 POKE53280,2:::::POKE53280,0:
15 FOR P=OTO10:NEXTP:NEXTI
16 PRINT"[147]                           [159]C[129]I[158]A[153]O!":
17 POKE161,0:POKE162,0:WAIT161,1:GOTO9